home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 11 / AMUG BBS in a Box Volume XI (April 1994) (MacWizards).iso / Files / Hyper / Hy-Hyperi / HyperBBS 2.0.sit / HyperBBS 2.0 / Chat / cards.xml < prev    next >
Encoding:
Text File  |  1992-07-14  |  2.4 KB  |  54 lines
  1. card_5678.xml
  2. <?xml version="1.0" encoding="utf-8" ?>
  3. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  4. <card>
  5.     <id>5678</id>
  6.     <filler1>0</filler1>
  7.     <cantDelete> <false /> </cantDelete>
  8.     <showPict> <true /> </showPict>
  9.     <dontSearch> <false /> </dontSearch>
  10.     <owner>2624</owner>
  11.     <link rel="stylesheet" type="text/css" href="stylesheet_3183.css" />
  12.     <part>
  13.         <id>1</id>
  14.         <type>field</type>
  15.         <visible> <true /> </visible>
  16.         <dontWrap> <false /> </dontWrap>
  17.         <dontSearch> <false /> </dontSearch>
  18.         <sharedText> <false /> </sharedText>
  19.         <fixedLineHeight> <false /> </fixedLineHeight>
  20.         <autoTab> <false /> </autoTab>
  21.         <lockText> <false /> </lockText>
  22.         <rect>
  23.             <left>0</left>
  24.             <top>0</top>
  25.             <right>512</right>
  26.             <bottom>342</bottom>
  27.         </rect>
  28.         <style>scrolling</style>
  29.         <autoSelect> <false /> </autoSelect>
  30.         <showLines> <false /> </showLines>
  31.         <wideMargins> <false /> </wideMargins>
  32.         <multipleLines> <false /> </multipleLines>
  33.         <reservedFamily> 0 </reservedFamily>
  34.         <titleWidth>0</titleWidth>
  35.         <icon>0</icon>
  36.         <textAlign>left</textAlign>
  37.         <font>Tech</font>
  38.         <textSize>9</textSize>
  39.         <textStyle>plain</textStyle>
  40.         <textHeight>12</textHeight>
  41.         <name>Chat</name>
  42.         <script></script>
  43.     </part>
  44.     <content>
  45.         <layer>card</layer>
  46.         <id>1</id>
  47.         <text>Type shift-6 (^) to exit chat...
  48.  
  49. </text>
  50.     </content>
  51.     <name>Chat</name>
  52.     <script>on openCard
  53. global keybuff
  54. global foundSoFar
  55. put empty into foundSoFar
  56. configureSPort lineFeedOn,echoOn
  57. put "Type shift-6 (^) to exit chat..." into it
  58. put it & return & return into cd field "Chat"
  59. sendString return & return & return & it & return & return
  60. play "chat"
  61. put empty into keybuff
  62. end openCard
  63.  
  64. on idle
  65. global foundSoFar
  66. get recvUpTo(return,10,foundSoFar)
  67. -- get recvChars(charsAvailable())
  68. if it is not empty then put it after cd fld "Chat"
  69. if it contains "^" then exitChat
  70. else if it contains "NO CARR" then
  71. put "Connection broken!"
  72. exitChat
  73. end if
  74. end idle
  75.  
  76. on keydown whichkey
  77. global keybuff
  78. get whichkey
  79. if it is numToChar(8) then
  80. put empty into last char of keybuff
  81. else if it is "^" then exitChat
  82. else
  83. put it after keybuff
  84. if it is  then beep 1
  85. else
  86. if (charToNum(it) < 65) or (charToNum(it) > 122) then
  87. put keybuff after cd field "Chat"
  88. sendString keybuff
  89. put empty into keybuff
  90. end if
  91. end if
  92. end if
  93. end keydown
  94.  
  95. on exitChat
  96. beep 1
  97. sendVanilla "Chat ending... "
  98. pop card
  99. end exitChat</script>
  100. </card>
  101.  
  102.  
  103.